home *** CD-ROM | disk | FTP | other *** search
/ BMUG PD-ROM 1995 Fall / PD-ROM F95.toast / Utilities / Text Utils / Alpha 5.81 ƒ / Tcl / UserCode / setPascalMode.tcl < prev    next >
Encoding:
Text File  |  1994-07-07  |  1.2 KB  |  42 lines  |  [TEXT/ALFA]
  1. # FILE: setPascalMode.tcl
  2. #
  3. # LAST UPDATE: 01/07/93 8:40:41 AM
  4. #
  5. # This file contains the following TCL procedure(s):
  6. #
  7. #    setPascalMode -- used with changeMode & Pascal programming language
  8.  
  9. # COPYRIGHT:
  10. #
  11. #    Copyright © 1993 by David C. Black
  12. #    All rights reserved.
  13. #
  14. #    Redistribution and use in source and binary forms are permitted
  15. #    provided that the above copyright notice and this paragraph are
  16. #    duplicated in all such forms and that any documentation,
  17. #    advertising materials, and other materials related to such
  18. #    distribution and use acknowledge that the software was developed
  19. #    by David C. Black.
  20. #
  21. #    THIS SOFTWARE IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR
  22. #    IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
  23. #    WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
  24. #
  25. ################################################################################
  26.  
  27. # Pascal programming mode 
  28. proc setPascalMode {} {
  29.     changeMode "Pas"
  30.     uplevel #0 {
  31.         set elecLBrace 0
  32.         set elecRBrace 0
  33.         set electricSemi 0
  34.         set wordWrap 0
  35.         set funcTitle "Proc"
  36.         set funcExpr {^ *(procedure|function) *([a-zA-Z0-9_]*).}
  37.         set funcPar 2
  38.         set sortedIsDefault 0
  39.     }
  40. }
  41.  
  42.